home *** CD-ROM | disk | FTP | other *** search
/ Avalanche Ranch: Clip Ar… Song Lyrics & Decorating / Avalanche Ranch: Clip Art, Song Lyrics & Decorating - Disc 1.iso / pc / Xtras / WIN32 / impressario / Libraries / DL6PDFL.dll / PSPROCSET / 17 < prev    next >
Text File  |  2004-12-17  |  5KB  |  252 lines
  1. %%BeginResource: procset pdflev15044 6.0 1
  2. %%Copyright: Copyright 1987-2002 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  4. /_ColorSep5044? true dd
  5. /docinitialize {
  6. PDF begin
  7. /_defaulthalftone
  8. /currenthalftone where
  9. { pop currenthalftone }
  10. { 4 dict dup begin
  11. currentscreen
  12. /SpotFunction exch def
  13. /Angle exch def
  14. /Frequency exch def
  15. /HalftoneType 1 def
  16. end }
  17. ifelse
  18. dd
  19. /currentcolortransfer where
  20. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  21. { /_defaultcolortransfer [currenttransfer dup dup dup] dd }
  22. ifelse
  23. end
  24. } bd
  25. /initialize {
  26. /overprintstack null dd
  27. sep_ops begin
  28. 50 dict begin
  29. _defaulthalftone sethalftone
  30. } bd
  31. /terminate {
  32. end end
  33. } bd
  34. /currentcolortransfer where
  35. { pop }
  36. {
  37. /setcolortransfer
  38. {
  39. settransfer pop pop pop
  40. } bd
  41. } ifelse
  42. /pl {
  43. transform
  44. 0.25 sub round 0.25 add exch
  45. 0.25 sub round 0.25 add exch
  46. itransform
  47. } bd
  48. /m { _sa? { pl } if moveto } bd
  49. /l { _sa? { pl } if lineto } bd
  50. /c
  51. {
  52. _sa? {3 {pl 6 2 roll} repeat} if
  53. curveto
  54. } bd
  55. /ri/pop ld
  56. /setSA { /_sa? xdd } bd
  57. /re
  58. {
  59. _sa?
  60. {
  61. 8 dict begin
  62. /:h exch def
  63. /:w exch def
  64. /:y exch def
  65. /:x exch def
  66. :x :y pl
  67. /:ymin exch def /:xmin exch def
  68. :x :w add :y :h add pl
  69. /:ymax exch def /:xmax exch def
  70. :xmin :ymin moveto
  71. :xmax :ymin lineto
  72. :xmax :ymax lineto
  73. :xmin :ymax lineto
  74. closepath
  75. end
  76. }
  77. {
  78. 4 2 roll moveto
  79. 1 index 0 rlineto
  80. 0 exch rlineto
  81. neg 0 rlineto
  82. closepath
  83. } ifelse
  84. } bd
  85. /q
  86. {
  87. gsave
  88. [currentoverprint overprintstack] /overprintstack xdd
  89. }
  90. [/overprintstack] bld
  91. /Q
  92. {
  93. overprintstack aload pop /overprintstack xdd setoverprint
  94. grestore
  95. }
  96. [/overprintstack] bld
  97. /AlmostFull?
  98. { dup maxlength exch length sub 2 le
  99. } bd
  100. /Expand
  101. { 1 index maxlength mul cvi dict
  102. dup begin exch { def } forall end
  103. } bd
  104. /xput
  105. { 3 2 roll
  106. dup 3 index known not
  107. { dup AlmostFull? { 1.5 Expand } if
  108. } if
  109. dup 4 2 roll put
  110. } bd
  111. /defineRes
  112. { _categories 1 index known not
  113. { /_categories _categories 2 index 10 dict xput store
  114. } if
  115. _categories exch 2 copy get 5 -1 roll 4 index xput put
  116. } bd
  117. /undefineRes {
  118. null exch
  119. defineRes
  120. } bd
  121. /findRes {
  122. _categories exch get exch get
  123. } bd
  124. /L1setcolor {
  125. aload length
  126. dup 0 eq
  127. { pop .5 setgray }
  128. { dup 1 eq
  129. { pop setgray }
  130. { 3 eq
  131. { setrgbcolor }
  132. { setcmykcolor }
  133. ifelse }
  134. ifelse }
  135. ifelse
  136. } bind dd
  137. /concattransferfuncs {
  138. [ 3 1 roll /exec load exch /exec load ] cvx
  139. } bd
  140. /concatandsettransfer {
  141. /_defaulttransfer load concattransferfuncs settransfer
  142. } bd
  143. /concatandsetcolortransfer {
  144. colorplate 0 eq
  145. {
  146. _defaultcolortransfer aload pop
  147. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  148. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  149. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  150. concattransferfuncs
  151. setcolortransfer
  152. } if
  153. colorplate 1 ge colorplate 4 le and
  154. {
  155. 4 colorplate sub index 4 { exch pop } repeat
  156. concatandsettransfer
  157. } if
  158. colorplate 5 ge
  159. {
  160. 0 index 4 { exch pop } repeat
  161. concatandsettransfer
  162. } if
  163. } bd
  164. /tn5044sethalftone
  165. {
  166. begin
  167. HalftoneType 5 eq
  168. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  169. colorplate get
  170. here not {
  171. /Default here not { currentdict } if
  172. } if
  173. }
  174. { currentdict }
  175. ifelse
  176. end
  177. begin
  178. /TransferFunction here
  179. {
  180. concatandsettransfer
  181. currentdict dup length dict
  182. begin
  183. {
  184. 1 index /TransferFunction ne { def } { pop pop } ifelse
  185. } forall
  186. currentdict
  187. end
  188. }
  189. {
  190. currentdict
  191. } ifelse
  192. end
  193. sethalftone
  194. } bd
  195. /paintimage
  196. {
  197. colorplate 0 eq
  198. {
  199. { {currentfile cyanstr readstring pop}
  200. {currentfile magentastr readstring pop}
  201. {currentfile yellowstr readstring pop}
  202. {currentfile blackstr readstring pop
  203. currentfile graystr readstring pop pop}
  204. }
  205. { {currentfile cyanstr readhexstring pop}
  206. {currentfile magentastr readhexstring pop}
  207. {currentfile yellowstr readhexstring pop}
  208. {currentfile blackstr readhexstring pop
  209. currentfile graystr readhexstring pop pop}
  210. } ifelse
  211. true 4 colorimage
  212. }
  213. {
  214. 3 dict begin
  215. /binaryOK exch def
  216. [
  217. 1 1 5 {
  218. dup
  219. /currentfile cvx
  220. [ /cyanstr /magentastr /yellowstr /blackstr /graystr ]
  221. 3 -1 roll 1 sub get cvx
  222. binaryOK { /readstring } { /readhexstring } ifelse cvx
  223. /pop cvx
  224. 5 -1 roll
  225. colorplate dup 5 gt { pop 5 } if
  226. eq not { /pop cvx } if
  227. } for
  228. ] cvx bind
  229. end
  230. [
  231. colorplate 6 eq {
  232. /pop cvx
  233. negativecolorplate { 0 } { 1 } ifelse
  234. } if
  235. colorplate 4 le
  236. {
  237. 1 /exch cvx /sub cvx
  238. } if
  239. colorplate 6 ne
  240. {
  241. systemdict /currenttransfer get exec
  242. aload pop
  243. } if
  244. ] cvx
  245. gsave
  246. systemdict /settransfer get exec
  247. systemdict /image get exec
  248. grestore
  249. } ifelse
  250. } bd
  251. %%EndResource
  252.